home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Menus / toolboxAssistMenu.tcl < prev   
Encoding:
Text File  |  1997-10-08  |  1.7 KB  |  80 lines  |  [TEXT/ALFA]
  1. #================================================================================
  2. # QuickView™ Toolbox Assistant Help
  3. #================================================================================
  4.  
  5. alpha::menu toolboxRefMenu 1.0 "•400"
  6.  
  7. proc toolboxRefMenu {} {}
  8.  
  9. menu -m -n $toolboxRefMenu -p toolboxProc {
  10.     "Goto Reference"
  11.     "(-"
  12.     "Display Trap Template"
  13.     "Insert Trap Template"
  14.     "/L<O<ULookup Trap"
  15. }
  16.  
  17.  
  18. proc toolboxProc {menu item} {
  19.     switch $item {
  20.         "Goto Reference"        { gotoTBReference }
  21.         "Display Trap Template"    { displayTBTrapTemplate }
  22.         "Insert Trap Template"     { insertTBTrapTemplate }
  23.         "Lookup Trap"            { lookupTBTrap }
  24.     }
  25. }
  26.  
  27.  
  28. set lastTrap {}
  29.  
  30. proc insertTBTrapTemplate {} {
  31.     global lastTrap
  32.  
  33.     app::ensureRunning ALTV
  34.     set text [getSelect]
  35.     if {![string length $text]} {
  36.         if {[catch {prompt "Trap name:" $lastTrap} text]} return
  37.     } else {
  38.         deleteText [getPos] [selEnd]
  39.     }
  40.     set lastTrap $text
  41.     set res [AEBuild -r {'ALTV'} DanR {TMPL} "----" "“$text”"]
  42.     regexp {“.*”} $res one
  43.     insertText [string trim $one {“”}]
  44. }
  45.  
  46. proc displayTBTrapTemplate {} {
  47.     global lastTrap
  48.  
  49.     app::ensureRunning ALTV
  50.     set text {}
  51.     catch {set text [getSelect]}
  52.     if {![string length $text]} {
  53.         if {[catch {prompt "Trap name:" $lastTrap} text]} return
  54.     }
  55.     set lastTrap $text
  56.  
  57.     set res [AEBuild -r {'ALTV'} DanR {TMPL} "----" "“$text”"]
  58.     regexp {“.*”} $res one
  59.     alertnote [string trim $one {“”}]
  60. }
  61.  
  62. proc lookupTBTrap {} {
  63.     global lastTrap
  64.  
  65.     app::ensureRunning ALTV
  66.     set text {}
  67.     catch {set text [getSelect]}
  68.     if {![string length $text]} {
  69.         if {[catch {prompt "Trap name:" $lastTrap} text]} return
  70.     }
  71.     set lastTrap $text
  72.     AEBuild {'ALTV'} DanR {REF } "----" "“$text”"
  73. }
  74.  
  75. proc gotoTBReference {} {
  76.     switchTo [app::ensureRunning ALTV]
  77. }
  78.  
  79.  
  80.